home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / MacApp Documentation / MacApp AppleLink Messages / MacApp.Tech$ Apr 89 / T0024-EraseRect not worki-Apr89 < prev    next >
Encoding:
Text File  |  1989-04-18  |  763 b   |  34 lines  |  [TEXT/GEOL]
  1. Item    2895212                         17-April-89        21:50
  2.  
  3. From:   D2987                           Command Central, R Andrews, PRT
  4.  
  5. To:     MACAPP.TECH$                    MACAPP Tech
  6.  
  7. Sub:    EraseRect not working
  8.  
  9. I have the following routine in my utilities code:
  10.  
  11. PROCEDURE TBorderView.Draw(area: Rect); OVERRIDE;
  12.  
  13. VAR
  14.         theBox:    Rect;
  15.  
  16. BEGIN
  17.  
  18.         GetQDExtent(theBox);
  19.         if (focus) then
  20.                 BEGIN
  21.                         EraseRect(theBox);
  22.             FrameRect(theBox);
  23.         END;
  24.  
  25. END;    {* TMapView.Draw *}
  26.  
  27. For some reason, when its window is redrawn, the old border is left, in
  28. addition to the new border.  This does not make since because the size ( I have
  29. printed it in the debug window) is the new size.
  30.  
  31.         Brad Andrews
  32.  
  33.  
  34.